(thai-composition-function): Don't use prog1.

diff --git a/lisp/language/thai-util.el b/lisp/language/thai-util.el
index 35914c2cc5b2430f61bc3e83907316496ce1f460..bbf116485eabedc23604ac5b38161fdf0fbddb48 100644 (file)
--- a/lisp/language/thai-util.el
+++ b/lisp/language/thai-util.el
@@ -286,7 +286,7 @@ to compose.
 
 The return value is number of composed characters."
   (if (< (1+ from) to)
-      (prog1 (- to from)
+      (progn
        (if string
            (compose-string string from to)
          (compose-region from to))